10 ' NEW PROGRAM BOOT FOR GHANA BWANA, PITFALL II, DESERT RIDER, & ONE ON ONE 

20 • THIS PROGRAM WILL GIVE YOU FULL COLOR ON A COLOR COMPUTER 3 WHEN USING AN R 

GB MONITOR 

30 ' THIS PROGRAM WILL ALSO FIX THE BUG IN GHANA BWANA ON THE COLOR COMPUTER 3 

35 • RAINBOW 5/91 P . 74 

40 CLEAR 50,&H3FFE 

50 P=PEEK(&H3FFF) 

60 X=&H7FFF:P0KE X,165 

70 POKE X,255-PEEK(X) 

80 IF PEEK(X)<>90 THEN 100 

90 IF P=PEEK(&H3FFF) THEN 110 

100 CLS:PRINT"64K IS NEEDED FOR THIS PROGRAM" 

110 CLEAR 500,&H7FFF 

120 FOR 1=0 TO 70 

130 READ A$ 

140 POKE &H5000+I,VAL("&H"+A$) 

150 NEXT I: WIDTHS 2 

160 DSKI$0,34,4,A$,B$:SUM=0:FOR X=l TO 128 : SUM=SUM+ASC(MID$ (A$ , X, 1 ) )+ASC(MID$ (B$ 

,X,1)) :NEXT X 

170 IF SUM-20423 THEN INPUT M REMOVE WRITE PROTECT TAB FROM DISK AND PRESS ENTER. 

" ;Q$:MID$ (A$, 106,1 )=CHR$( 254) :MID$( A$ , 122, 1 )=CHR$ (254) :DSKO$0, 34, 4, A$ ,B$ :GOTO 16 



180 READ S,A,B,C,D:IF S=0 THEN 280 ELSE IF SOSUM THEN 180 

190 POKE &HFFD8,0:PRINT " ARE YOU USING AN RGB MONITOR ? (Y/N)" 

200 Q$=INKEY$:IF Q$0"Y" AND Q$<>"N" THEN 200 

210 IF Q$="N M THEN 280 

220 PALETTE 0, A: PALETTE 4, A 

230 PALETTE 1,B: PALETTE 5,B 

240 PALETTE 2, C: PALETTE 6,C 

250 PALETTE 3, D: PALETTE 7,D 

260 PRINT "PLEASE HOLD DOWN THE CLEAR KEY UNTIL THE GAME IS BOOTED." 

270 IF INKEY$OCHR$(12) THEN 270 

280 EXEC &H5000 

290 DATA 86,22,8E,26,00,8D,OD 

300 DATA FC,26,00, 10, 83,4F,53 

310 DATA 26, 03, 7E, 26, 02, 39, 34 

320 DATA 20, 10, BE, C0,06,A7, 22 

330 DATA 86,02,A7,A4,6F,21,6F 

340 DATA 23,6C,23,AF,24,10,BE 

350 DATA CO, 06, A6, 23, 81, 13, 27 

360 DATA 12,AD,9F,C0,04,4D,27 

370 DATA 06,6C,23,6C,24,20,E9 

380 DATA 7F,FF,40,35,A0,4F,20 

390 DATA F8 

400 DATA 22438,63,0,9,36 

410 DATA 20651,63,36,9,0 

420 DATA 22631,0,9,36,63 

430 DATA 65280,63,36,9,0 

440 DATA 0,0,0,0,0 


